perm filename RDATA[4,KMC]4 blob
sn#020514 filedate 1973-01-09 generic text, type T, neo UTF8
00100 (SETQ QL @(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z '))
00200 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP X T @LET))) QL)
00300
00400 (DEFPROP INIT 0 WT)
00500 (DEFPROP INIT INIT SET)
00600
00700 (DEFPROP INTROTOP (
00800 (RACKETSET)
00900 (GANGSTERSET)
01000 (PERSONSET)
01100 (CHEATSET)
01200 (BOOKIESET)
01300 (GAMBLERSET)
01400 (MONEYSET)
01500 (HORSERACINGSET)
01600 (POLICESET)
01700 (ITALIANSET)
01800 (HORSESET)
01810 (ARITHMETIC ADD SUBTRACT MULTIPLY DIVIDE PLUS MINUS TIMES
01820 TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN
01830 ELEVEN TWELVE THIRTEEN FOURTEEN FIFTEEN SIXTEEN
01840 SEVENTEEN EIGHTEEN NINETEEN TWENTY
01850 THIRTY FORTY FIFTY SIXTY SEVENTY EIGHTY NINETY HUNDRED)
01851 (HAROLD HARRY (HAROLD SMITH) )
01900 (AGE OLD) (MARRIED WIFE)
01910 (GIRL GIRLS GIRLFRIEND GIRLFRIENDS (GIRL FRIEND)(GIRL FRIENDS) CHICKS WOMEN)
02000 (OCCUPATION JOB WORK (FOR LIVING))
02010 (SERVICE ARMY NAVY VIETNAM BRANCH)
02100 (LEAVE (GO HOME)(WHAT WANT ME) )
02200 (HOSPITAL HOSPITALIZED HOSPITALIZATION HOSPITALIZATIONS WARD WARDS
02300 HERE PATIENT (THIS PLACE))
02400 (PATIENTS )
02410 (COMPUTER COMPUTERS PROGRAM PROGRAMMER)
02420 (PERSON HUMAN BREATHE ALIVE PERSONALITY (MADE OUT OF) MACHINE MACHINES)
02500 (DOCTOR DR DOCTOR'S THERAPIST THERAPIST'S PSYCHIATRIST PSYCHIATRIST'S
02600 DOCTORS SHRINK SHRINKS DIAGNOSIS)
02700 (SEXLIFE SEX SEXUAL HOMOSEXUAL FAIRY QUEER PERVERT HOMO GAY DEVIATE
02800 (MALE FRIENDS) MASTURBATE MASTURBATION)
02900 (HEALTH SICK ILL PAINS APPETITE MEMORY REMEMBERING MINDS
03000 REMEMBERING SLEEP SLEEPING ASLEEP INSOMNIA MOOD MOODS
03100 DAYDREAM CONCENTRATE CONCENTRATION THOUGHTS THINKING FORGET FORGETFUL
03200 SUICIDE SICKNESS ILLNESS CONDITION LIQUOR DRINKING ALCOHOL DRINK
03210 (LOST WEIGHT)(LOSE WEIGHT)
03300 DRUGS LSD MARIHUANA MARIJUANA SPEED AMPHETAMINES DEXIDRINE DOPE HEROIN
03400 DEXEDRINE TRIPS COCAINE GRASS POT NARCOTIC NARCOTICS GREENS GREENIES REDS
03410 ACID ADDICTION ADDICT ADDICTED SMOKE)
03600 (DREAM DREAMS DREAMING NIGHTMARE NIGHTMARES)
03610 (DEPRESSION DEPRESSED SAD SADNESS BLUE BLUES )
03620 (SUICIDE SUICIDAL ( WORTH LIVING)(KILLING YOURSELF)(TAKING YOUR LIFE))
03700 (BRAIN (HEAD INJURY) (HOW HEAD))
03800 (MENTAL SPIRIT DEVIL (HEAR VOICES ))
03900 (VISIONS STRANGE BIZARRE UNUSUAL HALLUCINATIONS)
04000 (MEDICATION MEDICATIONS MEDICINE MEDICINES SEDATIVES PILLS TREATMENT THORAZINE THERAPY)
04100 (EDUCATION COLLEGE SCHOOL GRADUATE GRADUATED)
04200 (RELIGION JEWISH CATHOLIC) (RELIGIOUS CHURCH GOD)
04300 (ANCESTRY NATIONALITY DESCENT (NATIONAL BACKGROUND) ETHNIC)
04400 (FAMILY PARENTS FATHER MOTHER DAD MOM FATHER'S MOTHER'S CHILDHOOD)
04500 (SIBLINGS BROTHER SISTER BROTHERS SISTERS FRIENDS VISITORS)
04600 (HEIGHT TALL) (BUILD WEIGHT WEIGH)
04700 (BORN BIRTHPLACE)
04800 (RESIDENCE LIVE (WHERE FROM))
04900 (HOBBIES FUN SPARE EXCITEMENT RELAXATION INTERESTS INTEREST ACTIVITIES
05000 HOBBY LEISURE ENJOY ENJOYMENT)
05100 (MOVIES MOVIE FILMS)
05200 (RELATIONS PEOPLE PERSONS STAFF NURSES)
05210 (SWEARING SUCK SUCKS FUCK FUCKS SHIT FUCKING COCK SUCKER )
05300 (UPSET UPSETS UPSETTING DIFFICULTY DIFFICULTIES ANXIETY WORRY WORRIES
05400 TROUBLES TROUBLING FEARS
05500 COMPLAINTS PROBLEM PROBLEMS BOTHER BOTHERS BOTHERING MIND
05600 MATTER WRONG)
05700 (MALE MAN)
05800 (NAME)
06000 (TELL)
06100 (QUESTION)
06200 (MOMENT)
06300 (HELP NEED)
06400
06500 (OK (HOW FEEL) (HOW FEELING)(HOW MORNING)(HOW AFTERNOON)(HOW EVENING)
06510 (HOW TONIGHT)(HOW TODAY))
06600
06700 ) Q)
06800
06900 (SETQ QL @(
07000
07100 (ANCESTRY ((MY BACKGROUND IS BRITISH BUT I WAS BORN IN THIS COUNTRY)
07110 (MY PARENTS CAME FROM ENGLAND)))
07200 (AGE (TWENTY-EIGHT))
07210 (ARITHMETIC((I AM NOT HERE TO PLAY ARITHMETIC GAMES)
07220 (KNOCK IT OFF)
07230 (DROP DEAD)))
07300 (BORN ((I WAS BORN IN SAN JOSE)(I GREW UP IN SAN JOSE))(WELL STILL))
07400 (BRAIN ((MY HEAD IS FINE)(THERE IS NOTHING WRONG WITH MY HEAD)(AS I SAID MY HEAD IS OK)))
07500 (BUILD ((NOT VERY HEAVY)) (SENSITIVE BOTHER))
07501 (COMPUTER((I WAS WONDERING THE SAME THING ABOUT YOU)
07502 (I AM NOT A MACHINE, I AM A PERSON)
07506 (YOU SEEM QUITE SUSPICIOUS)))
07510 (DEPRESSION((I AM NOT DEPRESSED)
07520 (DEPRESSION IS NOT A PROBLEM)
07530 (I TOLD YOU I WAS NOT DEPRESSED)))
07600 (DOCTOR ((ASK THE DOCTOR)(ASK DR WEBER)) (ASK WHY LIKE TREAT) (MY AM) (DRNAME WHO NAME))
07700 (DREAM ((I DON'T REMEMBER D∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈22400 (NOT (SO WHAT IF I'M NOT?))
22500 (OFTEN (ABOUT ONCE A WEEK))
22600 (OK ((ALL RIGHT I SUPPOSE)(OK)) (ABOUT))
22700 (OPERATORS (YOU KNOW) (KNOW WHAT DON'T))
22800 (OTHERS ((THE OTHERS IN THE HOSPITAL)(OTHER PATIENTS)))
22900 (PERSONS ((DO YOU KNOW ANYTHING ABOUT BOOKIES)(WHAT IS YOUR FEELING ABOUT BOOKIES)))
23000 (PLACE (SAN JOSE/. NOT A BAD SECTION/, THOUGH) (BAD MEAN) (LIKE) (WELL (LIVED LIFE)))
23100 (PUT (THEY LOOK DOWN ON YOU))
23200 (RELIGIOUS ((MY RELIGION IS MY OWN BUSINESS)(I DONT WANT TO DISCUSS RELIGION)))
23210 (SERVICE ((I WAS A CLERK IN THE ARMY)(I WAS NEVER IN VIETNAM)(I DONT WANT TO TALK ABOUT IT)))
23300 (SHDBE (I SHOULD BE OUT OF HERE))
23400
23500 (SHDNT ((THE DOCTORS GOT ME TO COME HERE)
23600 (THEY TALKED ME INTO COMING TO THE HOSPITAL)) (BROUGHT WHO))
23700 (SEE ((WE SEE EACH OTHER ONCE IN A WHILE)(VERY RARELY)))
23800 (SINCE (FOR ABOUT TWO WEEKS))
24000 (STAY (PEOPLE ARE PRETTY MUCH THE SAME ALL OVER) (DISCUSS THEY MEAN ALONG)
24100 (TRUE HOW WAY AGREE))
24200 (TALK (YOU JUST CAN'T TELL ABOUT PEOPLE) (PERSONS WHO WHAT))
24500 (THAT (I WENT TO THE RACES))
24600 (TROUBLE (THE SYNDICATE KNOWS EVERYTHING) (OPERATORS ORGANIZATION))
24700 (TRUE ((I KEEP MY EYE ON PEOPLE)(YOU JUST HAVE TO WATCH OUT FOR PEOPLE)) (WATCH MEAN WAY WHY))
24800 (TYPE (GANGSTER MOVIES))
24900 (WANT (YES/, I THINK SO))
25000 (WATCH ((THEY WILL TRY TO PUT YOU DOWN)) (PUT WHY HOW WAY MEAN))
25100 (WAY ((THEY ARE RESPONSIBLE FOR ALOT OF THE CRIME WE HAVE)))
25200 (WELL (YES))
25300 (WHAT (ALL RIGHT- DO YOU THINK I'M LIKE THE REST OR SOMETHING?))
25500 (WHERE (THE HOSPITAL))
25600 (WHOM ((SOME PEOPLE ACT KIND OF FUNNY/. LIKE SOME OF THOSE IMMIGRANT TYPES I WORK WITH))
25700 (HOW WAY) (IMMIGRANT IMMIGRANTS))
25800 (WHY (THEY DON'T REALIZE WHAT'S GOING ON MOST OF THE TIME) (PERSONS WHAT))
25810 (WHYHOSP ((I AM SOMEWHAT UPSET)(I THOUGHT I TOLD YOU I WAS UPSET) )(DISCUSS WHY SOMEWHAT WHAT))
25900 (WITH (I LIVE ALONE))
26000
26100
26200
26300 (YOU (I DON'T WANT TO TALK ABOUT THIS ANY MORE))
26400 ))
26500
26600 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CADR X) @A))) QL)
26700 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP (CAR X) (CDDR X) @Q))) QL)
26800
26900 (DEFPROP NEGS (NO NOT DON'T CAN'T CANNOT WON'T WOULDN'T COULDN'T NEVER HARDLY
27000 DONT CANT WONT WOULDNT COULDNT) IND)
27100
27200 ~ TOKENINF IS A LIST CONTAINING SEMANTIC INFORMATION AND REPLIES
27300 ~ RELEVANT TO ATTITUDE_TOKENS. IT IS A LIST OF LISTS, EACH OF WHICH
27400 ~ REFERS TO A PARTICULAR ATTITUDE AND WHICH HAS THE FOLLOWING FORMAT:
27500
27600 ~ (
27700 ~ (POSITIVE ATTITUDE TOKENS, E.G. X FRIENDLY Y)
27800 ~ (POSITIVE ATTITUDE CAUSATION TOKENS, E.G. X PLEASE Y)
27900 ~ (NEGATIVE ATTITUDE TOKENS, E.G. X ANGRY Y)
28000 ~ (NEGATIVE ATTITUDE CAUSATION TOKENS, E.G. X ANGER Y)
28100 ~ (LIST OF POSITIVE I-YOU REPLIES)
28200 ~ (LIST OF POSITIVE YOU-ME REPLIES)
28300 ~ (LIST OF NEGATIVE I-YOU REPLIES)
28400 ~ (LIST OF NEGATIVE YOU-ME REPLIES)
28500 ~ )
28600
28700
28800 (SETQ TOKENINF @(
28900 (
29000 (HELP ASSIST AID SUPPORT HELPFUL HELPING INTERESTED)
29100 (INTEREST)
29200 (HARM HURT) (N )
29300 (
29400 (IT IS HELPFUL TO TALK WITH SOMEONE OUTSIDE THE HOSPITAL)
29500 (YOU CAN HELP ME BY LISTENING TO WHAT I HAVE TO SAY)
29600 (IT WOULD HELP IF YOU UNDERSTOOD MY SIDE OF THE STORY)
29700 )
29800 (
29900 (I WILL HELP YOU IF I TRUST YOU)
30000 (I AM TRYING TO HELP YOU UNDERSTAND ME)
30100 )
30200 (
30300 (YOU HAVEN'T HELPED ME MUCH SO FAR)
30400 )
30500 (
30600 (I AM DOING MY BEST)
30700 (THERE IS NO NEED TO SCOLD ME)
30800 )
30900 )
31000 (
31100 (APPROVE ) (N)
31200 (CRITICIZE ACCUSE BLAME RIDICULE CRITICAL ATTACK) (N)
31300 (
31400 (IT'S NICE OF YOU TO SAY SO)
31500 )
31600 (
31700 (I'M TRYING TO)
31800 )
31900 (
32000 (YOU SHOULD TRY TO BE AS OBJECTIVE AS YOU CAN)
32100 (I ASSUME YOU ARE DOING YOUR BEST TO BE NEUTRAL)
32200 )
32300 (
32400 (MAYBE YOU DESERVE IT)
32500 (ISN'T IT POSSIBLE YOU EARNED IT?)
32600 )
32700 )
32800 (
32900 (AGREE BELIEVE ACCEPT FAVOR ASSURE REASSURE)
33000 (CONVINCE PERSUADE)
33100 (DISAGREE DISBELIEVE ARGUE) (N)
33200 (
33300 (I WOULD HOPE SO)
33400 (AT LEAST YOU ARE TRYING TO UNDERSTAND)
33500 )
33600 (
33700 (I WILL TRY)
33800 )
33900 (
34000 (YOU FIND IT HARD TO SEE MY SIDE OF IT)
34100 (WHOSE SIDE ARE YOU ON ANYWAY?)
34200 (I FEEL YOU DON'T REALLY UNDERSTAND ME)
34300 )
34400 (
34500 (WHY SHOULD YOU EXPECT ME TO GO ALONG WITH YOU?)
34600 )
34700 )
34800 (
34900 (UNDERSTAND FOLLOW ATTENTION COMMUNICATE) (N)
35000 (MISUNDERSTAND MISUNDERSTOOD CONFUSED PUZZLED) (CONFUSE PUZZLE )
35100 (
35200 (I'M GLAD YOU ARE PAYING SUCH ATTENTION)
35300 (I APPRECIATE YOUR TRYING TO UNDERSTAND)
35400 ( I THINK YOU SEE MY SIDE OF ALL THIS)
35500 )
35600 (
35700 (I'M DOING MY BEST TO UNDERSTAND YOUR QUESTIONS)
35800 (IT'S MORE IMPORTANT THAT YOU UNDERSTAND ME)
35900 )
36000 (
36100 (YOU SHOULD PAY MORE ATTENTION)
36200 (IT'S CLEAR TO ME IF NOT TO YOU)
36300 )
36400 (
36500 (I'M DOING MY BEST TO UNDERSTAND YOU)
36600 (YOU ARE THE ONE WHO DOESN'T UNDERSTAND)
36700 )
36800 )
36900 (
37000 (TRUST CONFIDE SHARE JOIN SYMPATHIZE) (N)
37100 (DISTRUST MISTRUST SUSPECT SUSPICIOUS) (N)
37200 (
37300 (I DON'T NEED A PAL/, I NEED SOMEONE WHO IS OBJECTIVE)
37400 )
37500 (
37600 (YOU SHOULD BE ABLE TO TELL WHETHER I TRUST YOU)
37700 (I WILL DO MY PART IF YOU DO YOURS)
37800 )
37900 (
38000 (YOU NEED TO BE MORE TRUSTING OF WHAT YOU HEAR)
38100 (SHOULD ONE ALWAYS BE SUSPICIOUS OF STRANGERS?)
38200 )
38300 (
38400 (I HAVE GOOD REASON TO BE THAT WAY)
38500 (I DON'T TRUST JUST ANYBODY)
38600 )
38700 )
38800 (
38900 (LIKE LOVE CARE) (N)
39000 (DISLIKE HATE) (N)
39100 (
39200 (YOU ARE TRYING TO BE TOO FRIENDLY)
39300 )
39400 (
39500 (IT'S NOT A MATTER OF LIKE OR DISLIKE)
39600 (I AM TRYING TO BE NEUTRAL TOWARDS YOU)
39700 )
39800 (
39900 (I ASSUME YOU ARE DOING YOUR BEST WITH ME)
40000 (I WOULD WANT YOU FOR ME RATHER THAN AGAINST ME)
40100 )
40200 (
40300 (THIS IS NOT A MATTER OF PERSONAL LIKE OR DISLIKE)
40400 (YOU SEEM MORE INTERESTED IN YOURSELF THAN IN HELPING ME)
40500 )
40600 )
40700 (
40800 (PLEASED HAPPY FRIENDLY COOPERATIVE) (N )
40900 (ANGRY IRRITATED ANNOYED HOSTILE REJECTING AGGRAVATED UNFRIENDLY
41000 MAD SORE DEFENSIVE PISSED SENSITIVE UNCOOPERATIVE
41100 QUARRELSOME SARCASTIC OPINIONATED ACCUSATORY
41200 ARGUMENTATIVE PEEVED PEEVISH)
41300 (ANGER IRRITATE IRRITATING AGGRAVATE ANNOY BUG BORE)
41400 (
41500 (IM GLAD YOU ARE PLEASED)
41600 )
41700 (
41800 (MY FEELINGS TOWARDS YOU ARE NOT THE POINT)
41900 )
42000 (
42100 (YOU SEEM A BIT NEGATIVE TO ME AT TIMES)
42200 (YOUR OWN NEGATIVE FEELINGS CAN INTERFERE WITH AN INTERVIEW)
42300 )
42400 (
42500 (SOME OF YOUR REMARKS ANNOY ME)
42600 (YOUR APPROACH IS NOT TOO COOL)
42700 )
42800 )
42900 (
43000 (CALM RELAXED) (CONSOLE COMFORT)
43100 (SCARED AFRAID FRIGHTENED NERVOUS ANXIOUS THREATENED
43200 UNEASY WARY FEARFUL TENSE)
43300 (FRIGHTEN SCARE THREATEN)
43400 (
43500 (THAT'S STRANGE)
43600 )
43700 (
43800 (I DON'T SCARE EASILY)
43900 )
44000 (
44100 (I THINK IT IS THE OTHER WAY AROUND)
44200 )
44300 (
44400 (SOMETIMES YOUR QUESTIONS SCARE ME)
44500 (I DO NOT LIKE TO BE THREATENED)
44600 )
44700 )
44800 ))
44900
45000
45100 ~ THIS FUNCTION APPLIES THE GIVEN OPERATIONS TO ALL ATTITUDES
45200
45300 (MAPCAR (FUNCTION (LAMBDA (L)
45400 (PROG NIL
45500
45600 ~ MARK EACH TOKEN AS INSTANCE OF THE POSITIVE ATTITUDE
45700 ~ AT THE HEAD OF LIST 1
45800
45900 (MAPCAR (FUNCTION (LAMBDA (X)
46000 (PUTPROP X (CAAR L) @ATTIT)))
46100 (APPEND (CAR L) (CADR L) (CADDR L) (CADDDR L)) )
46200
46300 ~ MARK NEGATIVE TOKENS
46400
46500 (MAPCAR (FUNCTION (LAMBDA (X)
46600 (PUTPROP X T @NEG))) (APPEND (CADDR L) (CADDDR L)) )
46700
46800 ~ MARK CAUSATION TOKENS
46900
47000 (MAPCAR (FUNCTION (LAMBDA (X)
47100 (PUTPROP X T @FLIP))) (APPEND (CADR L) (CADDDR L)) )
47200
47300 ~ MARK ATTITUDE WITH ITS NEGATIVE COUNTERPART
47400
47500 (PUTPROP (CAAR L) (CAADDR L) @OPP)
47600
47700 ~ ASSOCIATE I_YOU AND YOU_ME REPLIES WITH EACH POSITIVE AND NEGATIVE ATTITUDE
47800
47900 (PUTPROP (CAAR L) (CAR (CDDDDR L)) @IYREPLIES)
48000 (PUTPROP (CAAR L) (CADDR (CDDDR L)) @YMREPLIES)
48100 (PUTPROP (CAADDR L) (CADDR (CDDDDR L)) @IYREPLIES)
48200 (PUTPROP (CAADDR L) (CADDDR (CDDDDR L)) @ YMREPLIES)
48300 ) )) TOKENINF)
48400
48500 ~ VERBS OR OTHER TOKENS REQUIRING AN OBJECT
48600
48700 (SETQ RL @ (
48800 HELP ASSIST AID SUPPORT HELPING APPROVE
48900 BELIEVE ACCEPT FAVOR ASSURE REASSURE
49000 FOLLOW TRUST CONFIDE SHARE JOIN SYMPATHIZE
49100 LIKE
49200 HARM HURT CRITICIZE ACCUSE BLAME RIDICULE ATTACK
49300 DISBELIEVE MISUNDERSTAND MISUNDERSTOOD
49400 DISTRUST MISTRUST SUSPECT DISLIKE
49500 REJECT REJECTING
49600 ))
49700
49800 (MAPCAR (FUNCTION (LAMBDA (X) (PUTPROP X T @RELN))) RL)
49900
50000
50100 (DEFPROP SACTS (THINK BELIEVE UNDERSTAND ASSUME GUESS WONDER FEEL) IND)
50200
50300 (DEFPROP DISCUSS ((TELL) (GO) (TALK) (DISCUSS) (SAY)) IND)
50400 (DEFPROP QUES ((ANSWER) (ASK) (QUESTION) (QUESTIONS)) IND)
50500 (DEFPROP SELF ((ANYTHING)(MORE)(ON)(AHEAD) (SOMETHING) (YOURSELF) (WHAT) (EXPERIENCES)) IND)
50600
50700 (DEFPROP DEFENSREPLIES
50800 ((WHY ARE YOU INTERESTED IN MY)
50900 (LETS FORGET ABOUT)
51000 (WHAT DO YOU KNOW ABOUT)
51010 (WHAT ABOUT MY)
51100 (WHY THE DIG AT MY)) IND)
51200
51300
51400 (DEFPROP ACCUSE (
51500 (IT'S ABOUT TIME YOU SHOWED SOME INTEREST IN MY FEELINGS)
51600 (FORGET THE EXCUSES/, YOU DOCTORS ALL TALK ALIKE)
51700 (FINALLY YOU ARE AWARE OF MY FEELINGS)
51800 (WHY DON'T YOU QUIT ALL THESE GAMES?)
51900 (NEVER MIND/, I KNOW WHAT YOU'RE TRYING TO DO)
52000 ) IND)
52100
52200 (DEFPROP DISTANCE (((GUARDED LOOK) I DOUBT IF YOU ARE BEING HONEST WITH ME)
52300 (I WISH I COULD BELIEVE YOU)
52400 ((LOOKS SKEPTICAL) FLATTERY WILL GET YOU NOWHERE)
52500 (I CAN'T STAND PEOPLE WHO TRY TO BUTTER ME UP)
52600 (LET'S NOT PLAY ANY GAMES)) IND)
52700
52800 (DEFPROP HOSTILEREPLIES (
52900 (I HAVE DOUBTS ABOUT YOU)
53000 (DO YOU KNOW WHAT YOU'RE DOING?)
53100 (PERHAPS YOU ARE JUST POSING AS A DOCTOR)
53200 (SOMEBODY SHOULD TEACH YOU A LESSON ABOUT INTERVIEWING)
53300 (YOU HAVE MISSED THE POINT)
53400 (YOU JERK)
53500 (YOU OBVIOUSLY HAVEN'T HAD MUCH EXPERIENCE IN PSYCHIATRY)
53600 (HAVE YOU EVER INTERVIEWED A PATIENT BEFORE?)
53700 (ARE YOU REALLY A DOCTOR?)
53800 (YOU PSYCHIATRISTS ARE ALL CRAZY)
53900 (YOU KNOW/, ALL YOU SHRINKS ARE HUNG UP ON SEX)
54000 (I THINK YOU ARE FULL OF SHIT)
54100 (YOU DON'T∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈INK YOU HAVE FOUND OUT SOMETHING ABOUT ME/, DON'T YOU?)
63800 (COULD BE)
63900 (THAT IS A GOOD POINT)
64000 (YOU COULD BE RIGHT)
64100 ) IND)
64200
64300 (DEFPROP ABNORMAL (
64400 (NEED HELP) (NEED TREATMENT)
64500 (NEED DOCTOR) (NEED HOSPITAL)
64600 (SICK) (ILL) (INSANE) (MENTAL) (MENTALLY)
64700 (PARANOID) (PARANOIA) (DELUSION) (DELUSIONS)
64800 (SCHIZOPHRENIC SCHIZOPHRENIA DELUSIONAL)
64900 ) IND)
65000
65100 (DEFPROP ALIEN (((STARTS FROM CHAIR) I KNOW YOU'RE ALL IN THIS TOGETHER)
65200 ((TENSELY) I THINK I KNOW WHAT YOU DOCTORS ARE UP TO)
65300 (YOU WANT TO KEEP ME IN THE HOSPITAL)
65400 (I KNOW YOU ARE GOING TO TRY TO GIVE ME ELECTRIC SHOCK)
65500 ( I WILL NOT CONSENT TO ELECTRIC SHOCK)
65600 (I THINK YOU KNOW DAMN WELL WHAT IS GOING ON)
65700 (YOU ARE TRYING TO BREAK ME DOWN)
65800 ((STARES AT YOU) YOU'RE IN WITH ALL THE REST)) IND)
65900
66000
66100 (DEFPROP PANIC (((FREEZES))
66200 ((PANICS))
66300 ((LOOKS AROUND ROOM))) IND)
66400
66500
66600 (DEFPROP SUSPREPLIES (((FROWN))
66700 ((DISTRUSTFUL LOOK))
66800 (WHAT ABOUT)
66900 ) IND)
67000
67100 (DEFPROP NEXTFL (
67200 (DO YOU KNOW ANYTHING ABOUT)
67300 (WHAT DO YOU KNOW ABOUT)
67400 (HAVE YOU EVER REALLY THOUGHT ABOUT)
67500 (YOU HAVE TO BE CAREFUL ABOUT)
67600 (ANOTHER THING IS)
67700 (MAYBE YOU HAVE TO WATCH OUT FOR)
67800 ) IND)
67900
68000 (DEFPROP FEELER ((WHAT DO YOU THINK ABOUT ALL THIS?)
68100 (NOW YOU MAY HAVE SOME IDEA OF WHAT THE SITUATION IS)
68200 (WHAT DO YOU THINK OF MY STORY?)
68300 ) IND)
68400
68500 (DEFPROP SILENCE (((NERVOUS) WHAT'S THE MATTER?)
68600 ((IRRITATED) WHY DON'T YOU SAY SOMETHING?)
68700 (CAN'T YOU THINK OF A DECENT QUESTION TO ASK?)
68800 (YOU'RE TRYING TO MAKE ME TALK BY NOT SAYING ANYTHING)
68900 (YOU'RE JUST PLAYING GAMES AGAIN)
69000 ((SHIFTS UNEASILY))
69100 (WHY ARE YOU SILENT?)
69200 (YOU ARE BEING EVASIVE)
69300 (THE OLD WAITING GAME)
69400 (YOU DON'T KNOW WHAT TO SAY)
69500 (TWO CAN PLAY THAT GAME)
69600 ) IND)
69700
69800 (DEFPROP CHANGESUBJ ((LET'S TALK ABOUT SOMETHING ELSE)
69900 (I'D RATHER NOT DISCUSS IT)
70000 (THAT'S SOMETHING I DON'T WANT TO GO INTO)
70100 (IT'S NONE OF YOUR BUSINESS)
70200 (I DON'T CONFIDE IN STRANGERS)
70300 ((LOOKS AT DOOR) LET'S CHANGE THE SUBJECT)) IND)
70400
70500 (DEFPROP OBJDATA ((CITY (PALO ALTO))
70610 (HOSPITAL (PALO ALTO VA))
70700 (YEAR (I973))
70710 (PRESIDENT (NIXON IS PRESIDENT))
70720 ((WHITE HOUSE)(DICK AND PAT NIXON))
70800 (DATE (I FORGET))
70810 (MONTH(DECEMBER ))
70900 (DAY (YOU TELL ME))
71000 ) IND)
71100
71200 (DEFPROP QLIST (HOW WHO WHOM WHAT WHEN WHERE WHY WHICH) IND)
71300
71400 (DEFPROP MANY (
71500 (TOO MANY)
71600 (ENOUGH)
71700 ) IND)
71800
71900 (DEFPROP MUCH (
71910 (GET LOST)
72000 (ENOUGH)
72100 (QUITE A BIT)
72200 (PRETTY MUCH)
72300 ) IND)
72400
72500 (DEFPROP LONG (
72600 (TOO LONG)
72700 (LONG ENOUGH)
72800 ) IND)
72900
73000 (DEFPROP OFTEN (
73100 (OFTEN ENOUGH)
73200 (PRETTY OFTEN)
73300 ) IND)
73400
73500 (DEFPROP WHY (
73600 (THAT'S JUST THE WAY IT IS)
73700 (THAT'S THE WAY IT GOES)
73800 ) IND)
73900
74000 (DEFPROP UNKNOWN ((WHAT DO YOU MEAN?)
74100 (WHAT ARE YOU GETTING AT?)
74110 (WHY DO YOU NEED TO KNOW THAT?)
74200 (I DON'T UNDERSTA∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈∧␈NAS )) LEADER)
24600 (DELUSIONS ((THEY WANT ME OUT OF THE WAY)
24700 (THEY DON'T WANT ME TO TESTIFY)
24800 (THEY WANT TO KEEP ME A PRISONER IN THE HOSPITAL)) WHYHOSP)
24900 ))
25000 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) DL)
25100
25200 (SETQ AL @((ANSWERS ((((WHAT)) DEL2)(((HOW KNOW)) DEL3) (((WHO ARE)(WHY)) DEL4)) DEL1)
25300 (ANSWERS ((((WHY) (WHAT FOR) (PURPOSE) (REASON)) DEL4) (((HOW KNOW)) DEL3)) DEL2)
25400 (ANSWERS ((((HOW) (WAY)) HOWSPY) (((WHEN)) WHENSPY) (((WHY)) WHYSPY)) DEL3)
25500 (ANSWERS ((((WHAT)(WHERE)) AVOID)) DEL4)
25600 (ANSWERS ((((WHO) (HE) (HIM)) LEADER)) DEL5)
25700 (ANSWERS ((((WHEN)) WHENSPY) (((WHY)) WHYSPY)) HOWSPY)
25800 (ANSWERS ((((HOW)) HOWSPY) (((WHY)) DEL4)) WHYSPY)
25900 (ANSWERS ((((WHAT FOR) (WHY) (PURPOSE) (REASON)) WHYHOSP)) DEL6)
26000 ))
26100 (MAPCAR (FUNCTION (LAMBDA (X) (EVAL (CONS @DEFPROP X)))) AL)
26200
26300 (MAPCAR (FUNCTION (LAMBDA (I) (PUTPROP I 0 @FREQ)))
26400 @(DEL1 DEL2 DEL3 DEL4 DEL5 DEL6 HOWSPY WHYSPY WHENSPY AVOID LEADER WHYHOSP))
26500
26600 (DEFPROP MAFIASET (
26700 (I'VE TOLD YOU ALL I KNOW ABOUT THE MAFIA)
26800 (DIDN'T YOU LISTEN TO WHAT I SAID ABOUT THEM BEFORE?)
26900 (I SAID I DIDN'T WANT TO TALK ABOUT THAT ANYMORE)
27000 ) IND)
27100
27200 (DEFPROP DISBELIEF (
27300 (YOU SURE)
27400 (YOU THINK)
27500 (I DON'T)
27600 (NO ONE)
27700 (BUT)
27800 (DOUBT) (RIDICULOUS)
27900 (REASON) (EVIDENCE)
28000 (IMAGINING) (IMAGINATION)
28100 (YOU MISTAKEN)
28200 (YOU WRONG) (YOU INCORRECT)
28300 ) IND)
28400
28500 (DEFPROP BELIEVEREPLIES ((YOU DON'T BELIEVE ME?)
28600 (YOU DONT BELIEVE ME DO YOU)
28700 (YOURE SKEPTICAL LIKE ALL THE OTHERS WHO DONT KNOW)) IND)
28800
28900 (DEFPROP ALOOF (((EYES YOU SUSPICIOUSLY) NEVER MIND/, I'VE GOT IT ALL FIGURED OUT)
29000 (I KNOW MORE ABOUT THIS THAN YOU DO)
29100 (YOU DON'T KNOW MUCH ABOUT WHAT REALLY GOES ON)
29200 (YOU DON'T SEEM TO UNDERSTAND)
29300 (IT'S CLEAR TO ME IF NOT TO YOU)
29400 (YOU SEEM INSINCERE TO ME)
29500 (YOU ARE NOT TAKING THIS SERIOUSLY)
29600 (IT SEEMS LIKE I DON'T NEED YOUR HELP AFTER ALL)) IND)
29700
29800 (DEFPROP TURNOFF (((IRRITATED) OH FORGET IT)
29900 ((STARES AT YOU))
30000 ((HEADS FOR DOOR) YOU DON'T KNOW WHAT YOU'RE TALKING ABOUT/, FORGET IT)
30100 ) IND)
30200 (DEFPROP EXHAUST (
30300 (I HAVE ALREADY TOLD YOU ENOUGH ABOUT THAT)
30400 (YOU KEEP SAYING THE SAME THINGS/,
30500 WHY NOT CHANGE THE TOPIC?)
30600 (I WOULD RATHER NOT DISCUSS THAT ANYMORE)
30700 (I AM GETTING TIRED OF HEARING THE SAME THINGS
30800 OVER AND OVER)
30900 (YOU HARP ON THE SAME THINGS TOO MUCH)
31000 (IN MY OPINION YOU HAVE A ONE-TRACK MIND)
31100 (WHAT'S WRONG WITH YOU THAT YOU KEEP ON
31200 BUGGING ME ABOUT THIS?)
31300 (THE WAY YOU REPEAT YOURSELF IS GETTING RIDICULOUS)
31400 (YOU ARE A REAL NAG)
31500 (I HAVE HAD ENOUGH OF THIS)
31600 ) IND)
00100 (SETQ IBASE 8.)
00200
00300
00400 (LAP SEND SUBR)
00500 (JRST BEGIN#)
00600 LETTER#
00700 (0 0)
00800 (0 0)
00900 (0 0)
01000 (0 0)
01100 (0 0)
01200 (0 0)
01300 (0 0)
01400 (0 0)
01500 (0 0)
01600 (0 0)
01700 (0 0)
01800 (0 0)
01900 (0 0)
02000 (0 0)
02100 (0 0)
02200 (0 0)
02300 (0 0)
02400 (0 0)
02500 (0 0)
02600 (0 0)
02700 (0 0)
02800 (0 0)
02900 (0 0)
03000 (0 0)
03100 (0 0)
03200 (0 0)
03300 (0 0)
03400 (0 0)
03500 (0 0)
03600 (0 0)
03700 (0 0)
03800 (0 0)
03900 BEGIN#
04000 (CALL 1 (E SIXBIT))
04100 (MOVEM 1 JOB#)
04200 (40000 1 (C 564155 0 455156))
04300 (JRST 0 FAILED#)
04400 (710000 0 JOB#)
04500 (JRST 0 FAILED#)
04600 (MOVEI 1 LETTER#)
04700 (CALL 1 (E CLEAR_MAILBOX))
04800 (MOVEI 1 (QUOTE T))
04900 (POPJ P)
05000 FAILED#
05100 (MOVEI 1 LETTER#)
05200 (CALL 1 (E CLEAR_MAILBOX))
05300 (MOVEI 1 (QUOTE NIL))
05400 (POPJ P)
05500 JOB#
05600 (0 0)
05700 (0 0 LETTER#)
05800 NIL
05900
06000 (LAP WRCV SUBR)
06100 (JRST BEGIN#)
06200 LETTER#
06300 (0 0)
06400 (0 0)
06500 (0 0)
06600 (0 0)
06700 (0 0)
06800 (0 0)
06900 (0 0)
07000 (0 0)
07100 (0 0)
07200 (0 0)
07300 (0 0)
07400 (0 0)
07500 (0 0)
07600 (0 0)
07700 (0 0)
07800 (0 0)
07900 (0 0)
08000 (0 0)
08100 (0 0)
08200 (0 0)
08300 (0 0)
08400 (0 0)
08500 (0 0)
08600 (0 0)
08700 (0 0)
08800 (0 0)
08900 (0 0)
09000 (0 0)
09100 (0 0)
09200 (0 0)
09300 (0 0)
09400 (0 0)
09500 BEGIN#
09600 (MOVEI 1 LETTER#)
09700 (CALL 1 (E CLEAR_MAILBOX))
09800 (710000 1 LETTER#)
09900 (MOVEI 1 LETTER#)
10000 (MOVEI 2 (QUOTE FIXNUM))
10100 (JCALL 2 (E MAKNUM))
10200 NIL
10300
10400 (LAP SRCV SUBR)
10500 (JRST BEGIN#)
10600 LETTER#
10700 (0 0)
10800 (0 0)
10900 (0 0)
11000 (0 0)
11100 (0 0)
11200 (0 0)
11300 (0 0)
11400 (0 0)
11500 (0 0)
11600 (0 0)
11700 (0 0)
11800 (0 0)
11900 (0 0)
12000 (0 0)
12100 (0 0)
12200 (0 0)
12300 (0 0)
12400 (0 0)
12500 (0 0)
12600 (0 0)
12700 (0 0)
12800 (0 0)
12900 (0 0)
13000 (0 0)
13100 (0 0)
13200 (0 0)
13300 (0 0)
13400 (0 0)
13500 (0 0)
13600 (0 0)
13700 (0 0)
13800 (0 0)
13900 BEGIN#
14000 (MOVEI 1 LETTER#)
14100 (CALL 1 (E CLEAR_MAILBOX))
14200 (710000 2 LETTER#)
14300 (JRST 0 NOLETT#)
14400 (MOVEI 1 LETTER#)
14500 (MOVEI 2 (QUOTE FIXNUM))
14600 (JCALL 2 (E MAKNUM))
14700 NOLETT#
14800 (MOVEI 1 (QUOTE NIL))
14900 (POPJ P)
15000 NIL
15100
15200 (LAP MAIL_IS_WAITING SUBR)
15300 (CAIE 1 (QUOTE ME))
15400 (JRST 0 HIM#)
15500 (710000 3)
15600 (JRST 0 NOMAIL#)
15700 (JRST 0 MAIL#)
15800 HIM#
15900 (CALL 1 (E SIXBIT))
16000 (40000 1 (C 564155 0 455156))
16100 (JRST 0 NOMAIL#)
16200 (710000 4 1)
16300 (JRST 0 NOMAIL#)
16400 MAIL#
16500 (MOVEI 1 (QUOTE T))
16600 (POPJ P)
16700 NOMAIL#
16800 (MOVEI 1 (QUOTE NIL))
16900 (POPJ P)
17000 NIL
17100
17200 (LAP CLEAR_MAILBOX SUBR)
17300 (402000 0 0 1)
17400 (514000 2 1)
17500 (271000 1 1)
17600 (540000 2 1)
17700 (271000 1 36)
17800 (HRRM 1 BLT#)
17900 BLT#
18000 (251000 2 0)
18100 (MOVEI 1 (QUOTE NIL))
18200 (POPJ P)
18300 NIL
18400
18500 (LAP JOB_EXISTS SUBR)
18600 (CALL 1 (E SIXBIT))
18700 (40000 1 (C 564155 0 455156))
18800 (JRST 0 NO#)
18900 (MOVEI 1 (QUOTE T))
19000 (POPJ P)
19100 NO#
19200 (MOVEI 1 (QUOTE NIL))
19300 (POPJ P)
19400 NIL
19500
19600 (LAP SLEEP SUBR)
19700 (275000 1 577777)
19800 (47000 1 31)
19900 (MOVEI 1 (QUOTE NIL))
20000 (POPJ P)
20100 NIL
20200
20300 (LAP SAVEJOB SUBR)
20400 (MOVEM 2 SAVEXT#)
20500 (CALL 1 (E SIXBIT))
20600 (MOVEM 1 SAVNAM#)
20700 (MOVE 1 SAVEXT#)
20800 (JUMPE 1 SAVACS#)
20900 (CALL 1 (E SIXBIT))
21000 (MOVEM 1 SAVEXT#)
21100 SAVACS#
21200 (MOVEM 0 AC0#)
21300 (MOVE 0 (C 1 0 AC1#))
21400 (251000 0 AC17#)
21500 (MOVE 1 (C SAVE# 0))
21600 (47000 1 400004)
21700 START#
21800 (MOVE 0 (C AC1# 0 1))
21900 (251000 0 17)
22000 (MOVE 0 AC0#)
22100 (MOVEI 1 (QUOTE NIL))
22200 (POPJ P)
22300 SAVE#
22400 (446353 0 0)
22500 SAVNAM#
22600 (0 0)
22700 SAVEXT#
22800 (0 0)
22900 (0 0 START#)
23000 (0 0)
23100 AC0#
23200 (0 0)
23300 AC1#
23400 (0 0)
23500 (0 0)
23600 (0 0)
23700 (0 0)
23800 (0 0)
23900 (0 0)
24000 (0 0)
24100 (0 0)
24200 (0 0)
24300 (0 0)
24400 (0 0)
24500 (0 0)
24600 (0 0)
24700 (0 0)
24800 AC17#
24900 (0 0)
25000 NIL
25100
25200 (LAP SKIPCH SUBR)
25300 (51000 2 1)
25400 (JRST 0 NOCHAR#)
25500 (CALL 1 (E ASCII))
25600 (JCALL 1 (E INTERN))
25700 NOCHAR#
25800 (MOVEI 1 (QUOTE NIL))
25900 (POPJ P)
26000 NIL
26100
26200 (LAP CLEAR_BUFFER SUBR)
26300 (51000 11)
26400 (CALL 0 (E SKIPCH))
26500 (51000 11)
26600 (MOVEI 1 (QUOTE NIL))
26700 (POPJ P)
26800 NIL
26900
27000 (LAP SIXBIT SUBR)
27100 (MOVEI 2 (QUOTE PNAME))
27200 (CALL 2 (E GET))
27300 (HLRZ@ 2 1)
27400 (MOVE 2 0 2)
27500 (MOVEI 3 0)
27600 (HRRZ@ 1 1)
27700 (JUMPE 1 START#)
27800 (HLRZ@ 3 1)
27900 (MOVE 3 0 3)
28000 START#
28100 (402000 0 1)
28200 (MOVEI 7 6)
28300 (MOVE 4 (C 440700 0 2))
28400 (MOVE 5 (C 440600 0 1))
28500 LOOP#
28600 (134000 6 4)
28700 (JUMPE 6 END#)
28800 (275000 6 40)
28900 (136000 6 5)
29000 (367000 7 LOOP#)
29100 END#
29200 (POPJ P)
29300 NIL
29400
29500 (LAP SEND_MAIL SUBR)
29600 (PUSH P 1)
29700 (PUSH P 2)
29800 (PUSH P (C 0 0 (QUOTE NIL) 0))
29900 (PUSH P (C 0 0 (QUOTE NIL) 0))
30000 (PUSH P (C 0 0 (QUOTE NIL) 0))
30100 (CALL 1 (E JOB_EXISTS))
30200 (JUMPE 1 G0007)
30300 G0011 (MOVE 1 -3 P)
30400 (CALL 1 (E STRP))
30500 (JUMPE 1 G0014)
30600 (MOVE 1 -3 P)
30700 (JRST 0 G0013)
30800 G0014 (MOVE 1 -3 P)
30900 (CALL 1 (E EXPLODE))
31000 (MOVEI 2 (QUOTE (/")))
31100 (CALL 2 (E *APPEND))
31200 (MOVEI 2 (QUOTE /"))
31300 (CALL 2 (E XCONS))
31400 (CALL 1 (E READLIST))
31500 G0016
31600 G0013 (MOVEI 2 (QUOTE PNAME))
31700 (CALL 2 (E GET))
31800 (MOVEI 2 (QUOTE SUBR))
31900 (MOVEM 1 -1 P)
32000 (MOVEI 1 (QUOTE SEND))
32100 (CALL 2 (E GET))
32200 (MOVEI 2 (QUOTE FIXNUM))
32300 (CALL 2 (E MAKNUM))
32400 (MOVEI 2 (QUOTE 1))
32500 (CALL 2 (E *PLUS))
32600 (MOVEM 1 0 P)
32700 G0001 (PUSH P (C 0 0 (QUOTE NIL) 0))
32800 G0002 (MOVE 1 -5 P)
32900 (CALL 1 (E MAIL_IS_WAITING))
33000 (JUMPE 1 G0031)
33100 (MOVEI 1 (QUOTE 1))
33200 (CALL 1 (E SLEEP))
33300 (MOVEM 1 0 P)
33400 (JRST 0 G0030)
33500 G0031 (MOVE 1 0 P)
33600 (JRST 0 G0027)
33700 G0034
33800 G0030 (JRST 0 G0002)
33900 G0027 (SUB P (C 0 0 1 1))
34000 (PUSH P -1 P)
34100 (PUSH P -1 P)
34200 (MOVEI 2 (QUOTE 37))
34300 (MOVE 1 -2 P)
34400 (CALL 2 (E *PLUS))
34500 (PUSH P 1)
34600 (PUSH P (C 0 0 (QUOTE NIL) 0))
34700 (PUSH P (C 0 0 (QUOTE NIL) 0))
34800 G0004 (MOVE 1 -4 P)
34900 (JUMPE 1 G0005)
35000 (MOVE 2 -2 P)
35100 (MOVE 1 -3 P)
35200 (CALL 2 (E *GREAT))
35300 (JUMPN 1 G0005)
35400 G0045 (MOVE 1 -4 P)
35500 (MOVEM 1 -7 P)
35600 (MOVE 1 -3 P)
35700 (MOVEI 2 (QUOTE FIXNUM))
35800 (MOVEM 1 -1 P)
35900 (HLRZ@ 1 -7 P)
36000 (CALL 2 (E MAKNUM))
36100 (CALL 1 (E EXAMINE))
36200 (MOVE 2 1)
36300 (MOVE 1 -1 P)
36400 (CALL 2 (E DEPOSIT))
36500 (MOVEM 1 0 P)
36600 (HRRZ@ 1 -4 P)
36700 (MOVEM 1 -4 P)
36800 (MOVE 1 -3 P)
36900 (CALL 1 (E ADD1))
37000 (MOVEM 1 -3 P)
37100 (JRST 0 G0004)
37200 G0005 (MOVE 1 -4 P)
37300 (JUMPN 1 G0055)
37400 (CLEARB 1 -7 P)
37500 (JUMPN 1 G0054)
37600 G0055
37700 G0054 (MOVE 1 0 P)
37800 (SUB P (C 0 0 5 5))
37900 (MOVE 1 -4 P)
38000 (CALL 1 (E SEND))
38100 (JUMPE 1 G0007)
38200 (MOVE 1 -2 P)
38300 (JUMPN 1 G0059)
38400 (MOVEI 1 (QUOTE T))
38500 (JRST 0 G0006)
38600 G0059 (HRRZ@ 1 -2 P)
38700 (MOVEM 1 -1 P)
38800 (JRST 0 G0001)
38900 G0060
39000 G0007 (MOVEI 1 (QUOTE NIL))
39100 G0006 (SUB P (C 0 0 5 5))
39200 (POPJ P)
39300 NIL
39400
39500
39600 (LAP GET_MAIL SUBR)
39700 (MOVEI 2 (QUOTE SRCV))
39800 (JCALL 2 (E RECEIVE_MAIL))
39900 NIL
40000
40100
40200 (LAP WAIT_FOR_MAIL SUBR)
40300 (MOVEI 2 (QUOTE WRCV))
40400 (JCALL 2 (E RECEIVE_MAIL))
40500 NIL
40600
40700
40800 (LAP RECEIVE_MAIL SUBR)
40900 (PUSH P 1)
41000 (PUSH P 2)
41100 (CALL 0 (E GENSYM))
41200 (MOVEI 2 (QUOTE PNAME))
41300 (PUSH P 1)
41400 (CALL 2 (E GET))
41500 (MOVEI 2 (QUOTE FIXNUM))
41600 (HLRZ@ 1 1)
41700 (CALL 2 (E MAKNUM))
41800 (PUSH P 1)
41900 (PUSH P (C 0 0 (QUOTE NIL) 0))
42000 (PUSH P (C 0 0 (QUOTE NIL) 0))
42100 (PUSH P (C 0 0 (QUOTE NIL) 0))
42200 (CALLF@ 0 -5 P)
42300 (MOVEM 1 0 P)
42400 (JUMPE 1 G0070)
42500 G0078
42600 G0067 (PUSH P 0 P)
42700 (MOVEI 2 (QUOTE 37))
42800 (MOVE 1 -1 P)
42900 (CALL 2 (E *PLUS))
43000 (PUSH P 1)
43100 (PUSH P (C 0 0 (QUOTE NIL) 0))
43200 (PUSH P (C 0 0 (QUOTE NIL) 0))
43300 G0068 (MOVE 2 -2 P)
43400 (MOVE 1 -3 P)
43500 (CALL 2 (E *GREAT))
43600 (JUMPE 1 G0085)
43700 (MOVE 2 0 P)
43800 (JRST 0 G0080)
43900 G0085
44000 G0087 (MOVE 2 -3 P)
44100 (MOVEM 2 -1 P)
44200 (MOVE 1 2)
44300 (CALL 1 (E EXAMINE))
44400 (MOVE 2 1)
44500 (MOVE 1 -7 P)
44600 (CALL 2 (E DEPOSIT))
44700 (MOVEI 2 (QUOTE 0))
44800 (CALL 2 (E EQUAL))
44900 (JUMPE 1 G0090)
45000 (MOVEI 2 (QUOTE T))
45100 (MOVEM 2 -6 P)
45200 (MOVEI 2 (QUOTE NIL))
45300 (JRST 0 G0089)
45400 G0090 (MOVE 1 -10 P)
45500 (CALL 1 (E EXPLODEC))
45600 (MOVE 2 1)
45700 G0094
45800 G0089 (MOVE 1 0 P)
45900 (CALL 2 (E *APPEND))
46000 (MOVEM 1 0 P)
46100 (MOVE 2 -6 P)
46200 (JUMPE 2 G0100)
46300 (EXCH 2 1)
46400 (JRST 0 G0080)
46500 G0100
46600 G0101 (MOVE 1 -3 P)
46700 (CALL 1 (E ADD1))
46800 (MOVEM 1 -3 P)
46900 (JRST 0 G0068)
47000 G0080 (MOVE 1 -5 P)
47100 (CALL 2 (E *APPEND))
47200 (SUB P (C 0 0 4 4))
47300 (MOVEM 1 -1 P)
47400 (JUMPN 1 G0108)
47500 (MOVE 1 -6 P)
47600 (JUMPE 1 G0110)
47700 (MOVEI 1 (QUOTE NIL))
47800 (JRST 0 G0109)
47900 G0110 (MOVEI 1 (QUOTE ""))
48000 G0111
48100 G0109 (JRST 0 G0069)
48200 G0108 (CALL 1 (E LAST))
48300 (HLRZ@ 2 1)
48400 (CAIE 2 (QUOTE /"))
48500 (JRST 0 G0114)
48600 (MOVE 1 -6 P)
48700 (JUMPE 1 G0118)
48800 (MOVE 1 -1 P)
48900 (CALL 1 (E REVERSE))
49000 (HRRZ@ 1 1)
49100 (CALL 1 (E REVERSE))
49200 (JRST 0 G0117)
49300 G0118 (MOVE 2 -1 P)
49400 (MOVEI 1 (QUOTE /"))
49500 (CALL 2 (E CONS))
49600 G0122
49700 G0117 (CALL 1 (E READLIST))
49800 (JRST 0 G0069)
49900 G0114 (MOVE 1 -2 P)
50000 (JUMPE 1 G0127)
50100 (MOVE 1 -6 P)
50200 (JUMPE 1 G0129)
50300 (MOVE 1 -1 P)
50400 (JRST 0 G0128)
50500 G0129 (MOVEI 1 (QUOTE /"))
50600 (CALL 1 (E NCONS))
50700 (MOVE 2 1)
50800 (MOVE 1 -1 P)
50900 (CALL 2 (E *APPEND))
51000 (MOVEI 2 (QUOTE /"))
51100 (CALL 2 (E XCONS))
51200 G0130
51300 G0128 (CALL 1 (E READLIST))
51400 (JRST 0 G0069)
51500 G0127 (CALL 0 (E WRCV))
51600 (MOVEM 1 0 P)
51700 (JRST 0 G0067)
51800 G0137
51900 G0070 (MOVEI 1 (QUOTE NIL))
52000 G0069 (SUB P (C 0 0 7 7))
52100 (POPJ P)
52200 NIL
52300
52400
52500
52600 (SETQ IBASE 10.)